<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2817</cardID>
<listID>3835</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>on exportBBSglobal thePage,startingCard,miscOsgo to card one of this bgsend "find " & quote & "Mail" & quote & " in fld " & quote & "GEPage" & quote & " of marked cards" to hyperCardif the result is not empty then pass exportBBSif line 13 of miscOs < 0 thensetMyBreakend ifput "200,9" into thePageget setPage(thePage,"push")if it ≠ "TTY" thenif it ≠ -1 thenput "<<<Wrong ack going to page " & thePage & " (" & it &") >>>"put msg & return after fld "text" of card startingCardend ifexit exportBBSend ifput readComm("Command",45) into dumyif eck() thenput "<<<MAIL NOT SENT: no response from GEnie (timeOut)>>>" after fld "text"exit exportBBSend ifrepeatset cursor to busyunlock screenif "Mail" is not in fld "GEpage" thenput "" into nxtCmdexit repeatend ifenterMailunmark this cardgo to next marked cardif the result is "No such card" thenput "exit" into nxtCmdexit repeatend ifend repeatwriteComm "EXIT" & return,5put readOnMove("110000",200) into dumyif nxtCmd is "exit" then exit exportBBSpass exportBBSend exportBBSon enterMailglobal startingCard,erroid,timeOut,miscOsput false into errFlagput fld "Reply to" into replyToWhoput "Sending your Mail to " & replyToWhowait 10writeComm "TBATCH" & return,5put readComm("INPUT",45) into dumyif eck() thenput "<<<MAIL NOT SENT: no response from GEnie (timeOut)>>>" after fld "text"exit enterMailend ifif length(replyToWho) > 150 then --TBATCH (next 15 lines or so added/changed)put item 1 to (the number of items in char 1 to 151 of replyToWho) - 1 of replyToWho¬into replyToWhoput return & "<<<TOO MANY ADDRESES in “Reply to”>>>" after fld "text"put true into errFlagend ifwriteComm line 1 of replyToWho & return,15put line 1 of fld "CC" into ccif fld "BCC" ≠ "" then put ",BLIND," & fld "BCC" after ccif length(cc) > 150 thenput item 1 to (the number of items in char 1 to 151 of cc) - 1 of cc¬into ccput return & "<<<TOO MANY ADDRESES in “CC” and/or “BCC”>>>" after fld "text"put true into errFlagend ifif cc is empty then put " " into ccwriteComm cc & return,15writeComm fld "topic" & return,15put wrapit(fld "reply") into daReplyrepeat with x = 1 to the number of lines in daReplywriteComm line x of daReply & return,15end repeatwriteComm "*S" & return,15get line 13 of miscOsif it < 0 then get 3if it > 0 then writeComm numToChar(it),5else goBreak 15put readComm(return & "Command",timeOut) into resp1if eck() then fixBreakput whichline(" Created ",resp1) into creLineif creLine > 0 thenput word 1 of line creLine of resp1 into fld "ltrNum"put "S" into fld "flag"if return & "*" is not in resp1 thenput return & "<<<Mail sent>>>" & return & resp1 after fld "text"elseput return & "<<<MAIL SENT, BUT: >>> " & resp1 after fld "text"put true into errFlagend ifelseput return & "<<< MAIL NOT SENT>>>" & return & resp1 after fld "text"put "X" into fld "flag"put true into errFlagend ifif errFlag then put return & "Mail Error, see card " & the number of this cd after fld "text" of cd startingCardif the number of items in replyToWho > 1then put "(GEnie only confirms 1st addressee, but Mail is sent to all)" after fld "text"put emptyend enterMailon fixBreakglobal startingCard,servantName,miscOsif "<<<Break" is in last line of fld "text" thenput "<<<Unable to set break key. Send email to ONE.CLICK manually for help>>>"put return & msg after fld "text" of cd startingCardelseput "<<<Break key has changed. Must redial to correct.>>>"put return & msg after fld "text"closeCommgo cd "Tech 1" of stack "Online Servant Stuff"put empty into line 13 of cd fld "miscOs"go stack servantNameif line 3 of miscOs = "Reply" then send mouseUp to bg btn "Reply only"else send mouseUp to bg btn "Go Online!"put return & "<<<CHECK PREVIOUS CARDS FOR ANY MAIL RECEIVED BEFORE REDIALING" &¬"--click left arrow>>>" after fld "text"end ifexit to HyperCardend fixBreakon enterReplyglobal erroid,xExtrChr,miscOS,startingCard,timeOutget line 2 of miscOSif it ≠ "" thenwriteComm "130011 " & it & "",15 --nicknameget readfild(timeOut,"P")if eCk() then exit enterReplyend ifput fld "topic" into theTopicput line 1 of fld "text" into theTextput return & fld "Reply" after theTextif char 1 to 3 of theTopic is "<<<" then --new topicdelete char 1 to 3 of theTopicput "Starting your new Topic"writeComm "130017 " & fld "Cat" & " " & theTopic & " " & line 1 of theText & "",15get readfild(timeOut,"P")if fild(it,1) <> "130017" thenput return & "<<<Can't start new topic>>>" && it after fld "text"put return & "Topic Start error, see card " & the number of this card¬after fld "text" of card startingCardput "X" into fld "Flag"exit enterReplyend ifput fild(it,2) into theTopicput theTopic into fld "Topic"put return & "<<<Topic" && theTopic && "started OK>>>" after fld "text"put "S" into fld "Flag"delete line 1 of theTextif theText is "" thenexit enterReplyend ifelsedelete line 1 of theTextif word 1 of theText is "Command:" thenhndlComm word 2 to 3 of theTextexit enterReplyend ifend ifput "Entering your message"put "130016 " & fld "Cat" & " " & theTopic & " " & theText & "" into pktif length(pkt) > 1023 thenput length(pkt) div 1020 - 1 into iMaxrepeat with i=0 to iMaxset cursor to busywriteComm "" & char i*1020+1 to i*1020+1020 of pkt & "" & "",15end repeatadd 1 to iwriteComm "" & char i*1020+1 to i*1020+1020 of pkt,15elseset cursor to busywriteComm "" & pkt,15end ifget readfild(60,"P")if fild(it,1) <> "130016" thenput return & "<<<Can't reply to topic>>>" && it after fld "text"put return & "Topic Reply error, see card " & the number of this card¬after fld "text" of card startingCardput "X" into fld "Flag"elseput return & "<<<Message #" & fild(it,2) & " sent OK>>>" after fld "text"put "S" into fld "Flag"end ifend enterReplyfunction wrapIt oTextput 81 into lineLengthput empty into newTextrepeat with x = one to the number of lines in oTextset the cursor to busyput line x of oText into thisLineif thisLIne is empty then put " " into thisLineif the length of thisLIne <= lineLengththen put thisLine & return after newTextelserepeat until the length of thisLine <= lineLengthget the number of words in char 1 to lineLength of thisLine - 1put word one to it of thisLine & return after newTextdelete word one to it of thisLineend repeatput thisLine & return after newTextend ifend repeatreturn newTextend wrapIton setMyBreakglobal thePage,miscOsput "900,3" into thePageget setPage(thePage,"push")if it ≠ "TTY" thenif it ≠ -1 thenput "<<<Wrong ack going to page " & thePage & " (" & it &") >>>"put msg & return after fld "text" of card startingCardend ifput 3 into line 13 of miscOsexit setMyBreakend ifput readComm("Item",45) into sDataput eck() into dumyget whichLine("Break",sData)if it < 1 then put 3 into bkelseput last word of line it of sData into bkif bk < 0 then put 3 into bkend ifwriteComm "10" & return,15put bk into line 13 of miscOsput readOnMove("110000",900) into dumyend setMyBreakon enterOReplysend "openField" to fld "reply"end enterOReplyon otherReplyask "Enter the Topic number, or just “OK” to see a Topic list."¬with "<see list>"if it is "" then exit otherReplyif it is a number thennewRelatedCardput it into fld "Topic"send "openField" to fld "reply"elselock screenset lockMessages to trueput fld "GEPage" into GEPageput fld "Cat" into Catpush cardgo stack "OS Topics" in a new windowif the result ≠ "" then go stack "OS Topics"if the result ≠ "" then otrDmpset lockmessages to falsego card GEPage & "," & Catif the result ≠ "" then otrDmpput "Click on the topic to reply to, or Click on “Cancel”"pop card into itsend mouseUp to bg btn id 41end ifend otherReplyon newRelatedCardget last word of the ID of this carddoMenu "new Card"put fld "GEPage" of card ID it into fld "GEPage"put fld "Cat" of card ID it into fld "Cat"end newRelatedCardon ignoreTopanswer "Permanently ignore all future messages in topic" && fld "topic" & ¬", or just the old ones?" with "Permanent" or "Just Old" or "Cancel"if it is "Cancel" then exit ignoreTopif it is "Permanent" thenput "Command: Ignore Per" & return before fld "Reply"elseput "Command: Ignore" & return before fld "Reply"end ifset textStyle of line one of fld "Reply" to "bold"put "R" into fld "Flag"end ignoreTopon cancelCatanswer "Cancel your participation in Category" && fld "Cat" & "?"¬with "Nevermind" or "OK"if it is "Nevermind" then exit cancelCatput "Command: Cancel" & return before fld "Reply"set textStyle of line one of fld "Reply" to "bold"put "R" into fld "Flag"end cancelCaton deleteMessrepeatask "What’s the number of the message to delete from this topic?"if it is Cancel then exit deleteMessif it is a number then exit repeatend repeatput "Command: Delete " & it & return before fld "Reply"set textStyle of line one of fld "Reply" to "bold"put "R" into fld "Flag"end deleteMesson markTopput "Command: Mark" & return before fld "Reply"set textStyle of line one of fld "Reply" to "bold"put "R" into fld "Flag"answer "This topic will be marked."end marktopon saveASCput fld "text" into myTextif the optionKey is up thenanswer "This will save this card's message text as an ASCII file. " & ¬"(Use “Start New Stack” to archive ALL cards.) " & return & ¬"Include reply text?" with "Yes" or¬"No" or "Cancel"if it is "Cancel" then exit saveASCif it is "Yes" thenput return & "<<<REPLY:>>>" & return & ¬fld "Reply" & return after myTextend ifelseif fld "Reply" is not empty then put return & "<<<REPLY:>>>" & return & ¬fld "Reply" & return after myTextend ifget "OS," & fld "GEPage" &","& fld "Cat" &"," & fld"Topic"ask file "Save text as?" with itif it ≠ "" then open file it else exit saveASCwrite myText & return to file itclose file itend saveASC</script>
